home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 200 / 200.d81 / all smiles (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  241 lines
  1. 5 ifjg=0thenjg=1:gosub5000
  2. 6 dv=peek(186):ifdv<8thendv=8
  3. 100 ifml=1then300
  4. 110 ifml=2then320
  5. 120 ifml=8then1210
  6. 130 mz=7:oo$="[147]":goto1160
  7. 140 rem
  8. 150 dimw(99,2):lv=3:print"[147][152]";
  9. 160 w(4,1)=33:w(4,2)=5:forb=6to13:w(b,1)=21:w(b,2)=55:next
  10. 170 w(82,1)=129:w(82,2)=250:w(50,1)=129:w(50,2)=250
  11. 180 w(99,1)=21:w(99,2)=250:sl$="                                       "
  12. 190 w(1,1)=17:w(1,2)=50:f$="maze  1":gosub2000:pn=1
  13. 200 w(3,1)=65:w(3,2)=15:w(5,1)=85:w(5,2)=30:w(26,1)=129:w(26,2)=25
  14. 210 x=2:y=1:cl=13:ch=82:ml=.
  15. 220 poke53281,12:poke53280,12:d=.:x1=.:x2=.:x3=.:ok=.:ml=.
  16. 230 oo$="[147]"
  17. 240 ifjp=mzthen1040
  18. 250 fort=54272to54295:poket,0:next:poke54296,15:iflv>3thenlv=3
  19. 260 ad=1*16+0:sr=15*16+2
  20. 270 poke54284,ad:poke54285,sr:poke54282,0:poke54281,255
  21. 280 poke53281,76
  22. 290 ifml=.thenml=1:load f$+".ml",dv,1
  23. 300 x=peek(1944)+1:y=peek(1946)
  24. 310 ifml=1thenml=2:load f$+"/c.ml",dv,1
  25. 320 rem
  26. 330 remifx=2thenprint"[144]o":goto452
  27. 340 remifx=12thenprint"o"
  28. 345 printvt$(23)"    "
  29. 350 printvt$(24)"you have"lv+1;:iflv=0thenprint"life to live."
  30. 352 iflv>0thenprint"lives to live.":gosub1750
  31. 360 j=peek(56320):ifj<>127then375
  32. 370 q=peek(54272+(1023+x+(y*40))):poke54272+(1023+x+(y*40)),abs((q)-1):goto360
  33. 375 printvt$(23)"press 'q' at any time to quit          "
  34. 380 fort=54272to54295:poket,0:next:poke54296,15
  35. 390 ad=1*16+0:sr=15*16+2
  36. 400 poke54284,ad:poke54285,sr:poke54282,0:poke54281,255:ifj<>127then430
  37. 405 gett$:ift$="q"thengosub4000
  38. 410 ifpeek(56320)=127andd<>2then405
  39. 420 j=peek(56320)
  40. 430 ifj=119thenx1=1023+x+1:x2=y*40:ifpeek(x1+x2)<5orpeek(x1+x2)=82then540
  41. 440 ifj=123thenx1=1023+x-1:x2=y*40:ifpeek(x1+x2)<5orpeek(x1+x2)=82then540
  42. 450 ifj=126thenx1=1023+x:x2=y-1:x3=x2*40:ifpeek(x1+x3)=1then540
  43. 460 ifj=125thenx1=1023+x:x3=(y+1)*40:ifpeek(x1+x3)=1orpeek(x1+x3)=32then540
  44. 470 ifj=119thenx1=1023+x+1:x2=y*40:ifpeek(x1+x2)=32orpeek(x1+x2)=99then540
  45. 480 ifj=123thenx1=1023+x-1:x2=y*40:ifpeek(x1+x2)=32orpeek(x1+x2)=99then540
  46. 490 ifj=111thench=32:goto690
  47. 500 ifd<>2then410
  48. 510 ifd=2andsm=.thenj=126:goto540
  49. 520 ifsm=1then1100
  50. 530 goto410
  51. 540 ifd=2andj<>126thend=.:sm=.
  52. 550 x1=1023+x:x2=y*40:x3=x1+x2:pokex3,ch:poke54272+x3,cl
  53. 560 ifj=119thenx=x+1
  54. 570 ifj=123thenx=x-1
  55. 580 ifj=126theny=y-1
  56. 590 ifj=125theny=y+1
  57. 600 x3=1023+x+y*40:ch=peek(x3):cl=peek(54272+x3)
  58. 610 poke54283,.:poke54280,.
  59. 620 poke54283,w(ch,1):poke54280,w(ch,2):poke54283,abs(w(ch,1)-1)
  60. 630 ok=peek(x3)
  61. 640 ifch=3thench=5:cl=9
  62. 650 pokex3,15:pokex3+54272,0:ifok<>32andd<>1then410
  63. 660 ifok=2ord=2thend=2:goto1070
  64. 670 ifok=32thend=1:j=125:poke54283,21:poke54280,y*9:poke54283,20:goto540
  65. 680 ifch=99thend=0:goto410
  66. 690 x1=1023+x:x2=y*40:gosub1110:fort=65to73:pokex1+x2,t:forh=1to80:next:next
  67. 700 poke54283,0
  68. 710 ifok=3then750
  69. 720 ifok=19then750
  70. 730 x1=1023+x:x2=y*40:x3=x1+x2:pokex3,ch:poke54272+x3,cl
  71. 740 goto1120
  72. 750 rem
  73. 760 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto670
  74. 770 ifok<>19then1120
  75. 780 ifpn=tpthen1040
  76. 790 lv=lv+1:poke53281,76:printoo$"you may advance to the next level[146]!"
  77. 800 pn=pn+1:f$="maze "+str$(pn):goto210
  78. 810 lv=lv+1:poke53281,76:f$="maze "+str$(pn):goto210
  79. 820 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto670
  80. 830 ifok<>19then1120
  81. 840 poke53281,76:printoo$"you deserve to play the next level[146]!"
  82. 850 jp=2:f$="maze 3":lv=lv+1:goto210
  83. 860 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto670
  84. 870 ifok<>19then1120
  85. 880 poke53281,76:printoo$"lets see if you can conquer this..."
  86. 890 jp=3:f$="maze 4":x=12:y=20:ch=1:cl=0:lv=lv+1:goto220
  87. 900 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto670
  88. 910 ifok<>19then1120
  89. 920 poke53281,76:printoo$"you may advance to a new level![146]"
  90. 930 lv=lv+1:jp=4:f$="maze 5":goto210
  91. 940 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto670
  92. 950 ifok<>19then1120
  93. 960 poke53281,76:printoo$"you may attempt another level![146]"
  94. 970 lv=lv+1:jp=5:f$="maze 6":goto210
  95. 980 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto670
  96. 990 ifok<>19then1120
  97. 1000 poke53281,76:printoo$"try this next level![146]"
  98. 1010 lv=lv+1:jp=6:f$="maze 7":goto210
  99. 1020 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto670
  100. 1030 ifok<>19then1120
  101. 1040 print"[147]   you have won... but not conquered!"
  102. 1050 print:print"            i will return!"
  103. 1060 gosub1600:fort=1to1000:next:gosub1840:print"[147]";:goto1860
  104. 1070 ifpeek(x3-40)=32thenj=126:poke54283,21:poke54280,y*9:poke54283,20:goto410
  105. 1080 ifpeek(x3-40)=99thend=.:j=126:goto540
  106. 1090 j=peek(56320):ifj=119orj=123thensm=1:goto430
  107. 1100 j=111:goto490
  108. 1110 poke54283,129:poke54280,5:return
  109. 1120 iflv=.then1870
  110. 1130 poke53281,76:printoo$"you're slipping away fast[146]!"
  111. 1140 forx=1to2500:next
  112. 1150 lv=lv-2:goto810
  113. 1160 poke56334,peek(56334)or1:poke53272,(peek(53272)and240)+12
  114. 1170 ifpeek(12288)=60then1210
  115. 1180 ml=8:sys57812"parts",dv:poke780,0:poke781,0:poke782,48:sys65493:goto5
  116. 1190 fori=.to255:forj=.to7:get#1,a$:poke12288+j+i*8,asc(a$+chr$(.)):nextj,i
  117. 1200 close2
  118. 1210 print"[147][144]";:jq=56320:poke198,0:sw=12:poke53281,0:poke53280,0:jp=0:mz=7
  119. 1220 if ga=1then1560
  120. 1240 print"insert coin"
  121. 1250 cq=cq+1:forg=1tosw:geta$:ifa$=""andpeek(jq)=127thennext
  122. 1260 ifa$<>""orpeek(jq)<>127then1330
  123. 1270 ifcq=1orcq=9thenprint"[144]";:goto1240
  124. 1280 ifcq=2orcq=8thenprint"[151]";:goto1240
  125. 1290 ifcq=3orcq=7thenprint"[152]";:goto1240
  126. 1300 ifcq=4orcq=6thenprint"[155]";:goto1240
  127. 1310 ifcq=5thenprint"";:goto1240
  128. 1320 cq=1:sw=abs(sw)-1:goto1270
  129. 1330 poke53281,12:poke53280,12:print"[147]"
  130. 1335 poke214,11:print:printtab(13)"o thank you[146] o":gosub1860:gosub1800
  131. 1340 ifga=1thenforg=1to1000:next:goto1530
  132. 1350 print"[147]":poke214,3:print:printtab(8)"loadstar and ron coffen
  133. 1360 [151]214,5:[153]:[153][163]15)"present":[129]g[178]1[164]2500:[130]
  134. 1370 [129]t[178].[164]24:[151]54272[170]t,0:[130]
  135. 1380 [153]:[153]"loadprintgggggggggggggggggggggggggggggggggggggggg"
  136. 1390 [153]"verify     eee  e    e
  137. 1400 print"    e   e e    e
  138. 1410 [153]"    eeeee e    e
  139. 1420 print"    e   e e    e
  140. 1430 [153]"    e   e eeee eeee
  141. 1440 print
  142. 1450 print
  143. 1460 print"           eee  e e  eee e   eee  eee
  144. 1470 [153]"          e    e e e  e  e   e   e
  145. 1480 print"           ee  e   e  e  e   ee   ee
  146. 1490 [153]"             e e   e  e  e   e      e
  147. 1500 print"          eee  e   e eee eee eee eee
  148. 1510 [153]:[153]"printprintgggggggggggggggggggggggggggggggggggggggg"
  149. 1520 [141]1710
  150. 1530 [153]"";:[153]"           press fire to play"
  151. 1535 [153]"";:[153]"      or "[199](34)"q"[199](34)" to return to main menu"
  152. 1540 [153]"                   stopoo"
  153. 1545 [161]t$:[139]t$[178]"q"[167]4040
  154. 1550 [139][194](56320)[178]127[167]1545
  155. 1560 :x1[178]1043:x2[178]920:[141]1840:[129]t[178]65[164]73:[151]x1[170]x2,t:[129]h[178]1[164]60:[130]:[130]
  156. 1570 x1[178]1044:x2[178]920:[141]1840:[129]t[178]65[164]73:[151]x1[170]x2,t:[129]h[178]1[164]60:[130]:[130]
  157. 1580 [141]1640:[137]140
  158. 1590 [144]
  159. 1600 [141]1860:[143]"tantantan last xtantantan"
  160. 1610 [151]54296,15:[151]54277,8:[151]54278,255:[151]54276,23:f1[178]10:[129]z[178]1[164]24:f2[178]30
  161. 1620 [151]54273,f1:[129]y[178]1[164]10:[151]54287,f2:f2[178]f2[172]1.01:[130]:f1[178]f1[170]8:[130]:[151]54296,0
  162. 1630 [142]
  163. 1640 [141]1860:[143]"tantantan hyper tantantan"
  164. 1650 [151]54296,15:[151]54277,8:[151]54278,255:[151]54276,21:f1[178]2:[129]z[178]1[164]24:f2[178]80
  165. 1660 [151]54273,f1:[129]y[178]1[164]5:[151]54287,f2:f2[178]f2[173]1.1:[130]:f1[178]f1[170]9:[130]:[151]54296,0
  166. 1670 [142]
  167. 1680 [141]1860
  168. 1690 [151]54296,15:[151]54277,8:[151]54278,255:[151]54276,85:f1[178]100:f2[178]230:[129]z[178]1[164]77
  169. 1700 [151]54272,f1:[151]54287,f2:f2[178]f2[171]2:f1[178]f1[172].99:[130]:[151]54296,0:[142]
  170. 1710 [143]
  171. 1720 [151]54296,15:[151]54277,15:[151]54298,17:[151]54276,19:[151]54287,64:[129]n[178]1[164]3
  172. 1730 [129]f[178]1[164]255[169]4:[151]54273,f:[130]f
  173. 1740 [129]f[178]255[164]1[169][171]2.5:[151]54273,f:[130]f:[130]n:[151]54296,0:[142]
  174. 1750 [141]1860
  175. 1760 [151]54296,15:[151]54277,15:[151]54286,67:[151]54287,12:[151]54276,21
  176. 1770 [129]f[178].[164]255[169]2:[151]54273,f:[130]f
  177. 1780 [129]f[178]255[164]0[169][171]2:[151]54273,f:[130]:[142]
  178. 1790 j[178][194](56320):[142]
  179. 1800 :
  180. 1810 q[178]50:f2[178]